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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
INCLUSION OF THE ABOVE COPYRIGHT N NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. + 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
A OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. e 
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’ 
FACILITY: REMOTE 1/0 ACP 


ABSTRACT 
THIS MODULE PERFORMS — TRANSITIONS FOR 
LOGICAL LINKS AND FOR N 


ENVIRONMENT: 
MODE = KERNEL 
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WH0°500 HISTORY Itt Pi 95:9 :49 CREM.SRCJREMGETIRP.MAR; 1 td dy vd 
9 39 -SBTTL HISTOR 

40 ; AUTHOR: SCOTT G. DAVIS, CREATION DATE: 06-JUL-1979 

4¢ ; MODIFIED BY: 

44: v03-002 KDM0002 Kathleen D. Morse 28-Jun-1982 

9000 43 ; Added $DYNDEF. 
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~SBTTL DECLARATIONS 


; INCLUDE 


MACROS: 


FILES: 


: EQUATED SYMBOLS: 


> OWN STORAGE: 


.PSECT REM_PURE ,NOWRT ,NOEXE 


RANGE: .LONG 0 ; RANGE FOR WORKING-SET PURGE 
-LONG <1a31>-1 ; DO IT ALL 
WORK _VECTOR: : Vector of items for work queue processing 
ADDRESS REMSMBX REAL ; Put up a mailbox read 
- ADDRESS REMSRECU_MSG ; Put up a Link read 
-PSECT REM_IMPURE NOSHR ,NOEXE ,RD,WRT 
UNIT: -BLKW 1 ; For saving remote's unit no. 


REM.SRCJREMGETIRP.MAR; 1 (1) | 
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FOec 600 DECLARATIONS SEP-1984 85: 98:2 REM.SRCJREMGETIRP.MAR; 1 . (1) 
whey ts -PSECT REM_CODE,NOWRT 
0900 § -SBTTL PROCESS QI0 
000 90 ;++ 
Bo 4 3; FUNCTIONAL DESCRIPTION: 
$600 38 ; REMSMAIN - purge, working set and process IRP's from the AQB. 
0000 94 ; is routine determines what the i ve uest type is 
0000 95 3 and processes CANCEL functions oy it 
0009 96 ; For a regular IRP, the data in the Teas tenet buf fered 
0000 97 ; io packet is sent to the remote for processing. 
444 98 ; For a CANCEL Funes ten (ACPCONTROL gans complex buffer), 
000 99 ; a message for each | diy the affected channel 
0000 100 ; is sent to the reset who does the actual cancel. 
0000 101 ; 
0000 196 i-- 
0000 10 
0000 104 REMSMAIN:: 
si 193 SPURGWS_S W*RANGE ; Purge the working set 
0008 107 ; TRY TO DEQUEUE A REQUEST 
0008 108 ; 
0008 109 10s: 
52  O000°CF p00 Q00B 110 MOVL W*REM$GL_Q_HEAD,R2 ; Get address of queue head 
53 0082 OF O010 111 REMQUE a(R2),R3~ ; Try to get a packet 
11 1C Bate 116 BVC 20% 3; If vC there is one 
Bate 3 ; Nothing in queue - see whether it is time to go away 
0B A2 95 Q016 116 TSTB AQBS$B_MNTCNT(R2) ; Any ‘‘volumes'’ mounted? 
03 12 0019 £4117 BNEQ 15$ ; If NEQ yes ‘ 
FFE2" 30 O01B 118 BSBW REMSCHK_ACPDONE ; See if the ACP is all done 
OO1E 119 15$: 
OO1E 139 ; 
QO1E 121 ; Go to sleep, my baaaby 
OO1E \$¢ ; ; 
Bote 12 SHIBER_S ; Hibernate 
E46 11 002 124 BRB 10$ 3; Loop 
0027 125; 
Bas) 126 ; There was a request 
0027 127; 
0027 128 208: 
50 OA A3 9E 0027 129 MOVAB = IRPS$B_TYPE(R3),RO ; Point at block type 
80 95 +4 B 130 TSTB (RO)+ : Is it a work queue element? 
19 12 002D 131 BNEQ 223 3; If NEQ no 
SA 80 9A 002F 13 MOVZBL (RO)+,R10 : Get the work index 
5B 60 00 00 ¢ 13 MOVL (RO),R11 ; Get the device index, maybe 
5A O004°CF4A 00 003 134 MOVL WeWORK_VECTOR-6CRIC].R10 Get sédress of process ine routine 
50 3 00 0038 135 MOVL R3,R0 “Get the address for deallocation 
00000000'GF 16 OO3E 136 JSB G*€ XESDEANONPAGED S Eeatlecate the tae 
6A 16 ORee 137 JSB (R10) : Process the element 
ceo es beg 13 228 BRB 10$ ; Try to dequeue something else 
OA OA A391 yk: 140 CMPB {g00S_TYPECAS) S°ODYHEC IRE is it an IRP? 
2 13 004C 141 BEQL 5$ : QL yes 
10 OAA 91 be5 126 CMPB UE ESO TWPE (RS) .S°RDYNSC LUCE Is it a UCB? 
1 12 005 14 BNEQ 0$ : If NEQ no - fatal error 


<z 


m5 
as "Sr$EP=198¢ 08:58:49 EREMVSRCIREMGEYIRP.MaR:1 = "9 (fy 


REMGETIRP = PRO 
‘whee PROCE 


: There is a UCB in my queue 


MOVZBL UCBSB_ERTCNT(R3),R11 ; Get the index 
BEQL 108 ; af 


5B 0080 C3 9A 
BO EQL none - ignore 


; The channels to this device may be gone = get rid of it, maybe 


SSETAST_S #0 Disable AST's 

BSBW REMSKILL_UCB Delete the ute and break the Link 
SSETAST_S Al Enable AST's 

BRB 10$ Try for a packet 
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assign channel 
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— — os -— —) ss — 9 Ss — 9 9 — 9 —) > 9 — 9 4» 2s os ss —) 2s — 9 2s 4 4) 3 
SIND DD ODD AA AOA TTT 


30$: 
355 BUG_CHECK NOTIRPAQB,FATAL ; Bad ACP queue entry 
57 20 A3 860 MOVW IRPS$W_FUNC(R3), go? 9. oe 1/0 function code 
55 1€ A3_ 00 MOVL IRP$L_UCB(R3), e UCB address 
00° 57 00° OO° ED CMPZV S*#10$V_ FCODE, coy t0ss eee, a7 Re ios -ACPCONTROL ; Control? 
ED 12 BNEQ 30$ If NEQ no -~Bad unsupported error 
E8 2A A3 03 EO BBS #IRPSV COMPLX, IRP$W_ $$ (R3), 708 If BS then real ACPCONTROL 
38 A3 00000000 00000000'° 8F 7D mMOVQa #SS$_NORMAL ; This is a cancel, so just post it 
0096 TRPSC 1OST1(R3) : with success and so 
FF67" 30 0096 BSBW REMSPOST ; ignore it. 
FF6F 31 0099 BRW 10$ : For another entry 
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PROCESS Q10 ~SEP-1984 53:49 (CREM.SRCIREMGETIRP.MAR; 1 
4! 173 
ips i 
009 178 ; REMSALLOC_IRP = allocate an IRP=-size block for use as a message buffer 
948 178 ; OUTPUTS: 
OF §86fy 
009C 180; R2 - buffer address, with size and type filled in 
009C 181; 
009C 18 3=o 
009Cc = 18 
4935 HT: REMSALLOC_IRP:: 
54 Q0000000'GF D0 O09C 185 MOVL G*SCH$GL_CURPCB,R4 ; Set up my PCB address 
00000000'GF 16 OOA3 186 JSB G*EXESALCOCIRP ; Allocate a block (IRP's are easy to get) 
QOOA9 =s:«*187 SETIPL #0 ; Bring down the IPL 
05 QOAC 188 RSB ; Done 
- QOAD 189 
QOAD 190 -END 
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Symbol table SSEP=1984 05:53:49 EREMVSRCIREMGETIAPLMAR;1 29° 5, 
AQB$B_MNTCNT = 00000008 
BUGS _NOTIRPAQB eeeeeere XK 04 
DYNSC_IRP = QOQ0000A 

DYNSC_UCB = 00000010 

EXESACLOCIRP teeeeere Xo 04 

EXESDEANONPAGED eeeeeeee Xo 04 

10$S_F CODE teeeeeee KX 04 

10$V_F CODE eeeneeee KX 04 

10$_ACPCONTROL eeeeeeee Xo 04 

IRPSB_TYPE = 0000000A 

IRP$L_10ST1 = 00000038 

IRPSL_UC = 9000001¢ 

IRP$V_COMPLX = 0000000 

IRPSW_FUNC : 990000¢0 

IRP$W_STS = 0000002A 

PRS _ IPL = 00000012 

ANGE 00000000 R 02 

REMSALLOC_1 Q0000009C RG 04 

REMSCHK_ACPDONE eeeeeeee =X 04 

REMSGL_G_HEA teeneeee KX 04 

REMSKICL_UCB eeeeeere XK 04 

EMSMAI 00000000 RG 04 

REMSMBX_READ teeneeee XK 02 

REMSPOST eeeeeeee XK 04 

REMSRECV MSG eeeeeeee KX 02 

SCHS$GL agree teeeeeee XX 04 

SS$_NORMAL eenerere XK 04 

eeeNiece eeeeeeee GX 04 

SYSSPURGWS eeeeeeee GX 04 

SYSSSETAST eeeneeee GX 04 

UCBS$B Mohd = 00000080 
UCBSB_TYPE = 0000000A 
UN 00000000 R 03 
WORK _VECTOR 00000008 02 

SS + 


PSECT name Allocation PSECT No. Attributes | 


‘a re 00000000 ( 0.) 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE = 
SABSS 00000000 ( 0.) O1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
REM_PURE 00000010 (¢ 16.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
REM_IMPURE 00000002 ( a" 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
REM_COD QOOOO0AD (¢ 1735.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

ew ees ee eee er eee eee emer eree + 

: ; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00 00:00. 08 0:00:00. 3¢ 
Command processing 150 bp 00:00.65 830838 -o1 
Pass 317 0 Bp? 89-88 0: B36) 96 
Symbol table sort 0 00:00:01.58 00:00:06.1 
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VAX=-11 Macro Run Statistics eset §538 749 
Pass 2 51 0:00:01.61 0:00:03.18 
Symbol table output 0:00:00.07 + Q: 8-8 
Psect synopsis output 8: :00. :00:00.0 
Cross-reference output :00:00.0 Q: 8: 0.0 
Assembler run totals 55 0:00:13.6 0:00:34.67 


The working set Limit was 1200 pages. 
53234 bytes (104 pages) of virtual memory were used to buffer the intermediate code 


There were 60 pages of symbol table space allocated to hold 1082 non-local and 6 local symbols. 


190 source Lines were read in Pass 1, producing 17 object records in Pass 2. 
22 pages of virtual memory were used to define 21 macros. 


! Macro Library statistics ! 
eee e se vee ew ewe mee m eee mee een + 


Macro Library name 


-$255$DUA28 : CREM.OBJJREM.MLB; 1 0 
“$255$DUA28:CSYS.OBJJLIB.MLB; 1 10 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 8 
TOTALS (all Libraries) 18 


1184 GETS were required to define 18 macros. 


Theré were no errors, warnings or information messages. 


AX/VMS Macro Vv04-00 
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MACRO/LIS=L1S$:REMGETIRP/OBJ=OBJ$:REMGETIRP MSRC$:REMGETIRP/UPDATE=(ENHS$:REMGETIRP) +EXECML$/LIB+LIBS:REM/LIB 
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